home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of Shareware
/
Best of PC Windows Shareware 1.0 - Wayzata Technology (7111) (1993).iso
/
mac
/
DOS
/
PROGRAMG
/
FORTHCMP
/
BYTEBNCH.4TH
< prev
next >
Wrap
Text File
|
1992-03-30
|
543b
|
17 lines
( BYTE MAGAZINE BENCHMARK )
DECIMAL 256 MSDOS
8190 CONSTANT SIZE 10000 CONSTANT FLAGS ( STARTS AT 10000 )
0 0 IN/OUT : DO-PRIME FLAGS SIZE 1 FILL
0 SIZE 0
DO FLAGS I + C@
IF I 2* 3 + DUP I + FLAGS +
BEGIN DUP SIZE FLAGS + U<
WHILE DUP 0 C<- OVER + REPEAT
DROP DROP 1+
THEN
LOOP
U. ." PRIMES" CR ;
: MAIN ." 10 ITERATIONS" CR 10 0 DO DO-PRIME LOOP ;
INCLUDE FORTHLIB
END